## This code creates Figure 2.

ggplot(sittan_towns[is.na(sittan_towns$transfer)==FALSE & sittan_towns$transfer != "appointed, rebellion",],aes(x=transfer))+
  scale_y_continuous(breaks=seq(0,15,3),limits=c(0,15))+geom_bar(width=0.5)+theme_bw()+xlab("Method and Reason for Appointment Transfer")+ylab("Count")+
  theme(axis.title.x = element_text(size=16),
        axis.title.y = element_text(size=16),
        axis.text.x = element_text(size=16),
        axis.text.y = element_text(size=16))
